home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SPACE 1
/
SPACE - Library 1 - Volume 1.iso
/
program
/
245
/
dirtywrd.lst
< prev
next >
Wrap
File List
|
1988-10-10
|
1KB
|
41 lines
Alert 1,"DirtyWord!|Version .001|By Rick Taylor",1,"Uh huh",Dummy
Dim Line$(24) ! Set the maximum amount of lines.
Cls ! Clear the screen.
Print
Print "Press [RETURN] on a blank line to end input."
Print
'
Main:
'
Do
Inc Line_num ! Increment the line number,
Print Line_num;"] "; ! and show it on each line.
Form Input 75,Line$(Line_num) ! 75-char input per line.
Exit If Line$(Line_num)="" ! Look for a blank line.
Loop ! Do it again...
'
Alert 2," |What will you do?",1,"Save|Quit|Cancel",Answer
'
If Answer=1 ! Save it.
Fileselect "A:\*.*","TEMP.DAT",F$ ! Get a filename.
If F$="" ! Oops - no filename given,
Goto Main ! so go back to the editor.
Endif
Open "O",#1,F$ ! Create the file.
If Line_num=1 ! How do we save just a C/R?
Inc Line_num ! By adding a fake line!
Endif
For Count=1 To Line_num-1 ! Delete the blank line.
Print #1;Line$(Count) ! Write it.
Next Count
Close #1 ! Close the file,
Run ! and rerun the program.
Endif
'
If Answer=2 ! Quit.
End
Endif
'
Goto Main ! Continue after CANCEL.